home *** CD-ROM | disk | FTP | other *** search
/ American History: Interactive Maps & User's Guide / American History: Interactive Maps & User's Guide.iso / pc / IMAP12 / xImap12.dxr / 00009_General Setup Script.ls < prev    next >
Encoding:
Text File  |  2000-01-25  |  5.8 KB  |  174 lines
  1. on enterFrame
  2.   global glist12donelist1, glist12donelist2, glist12donelist3, glist12donelist4, glist12donelist5, glist12donelist6, glist12graphlist
  3.   repeat with counter in list(3, 4, 5, 16)
  4.     puppetSprite(counter, 0)
  5.   end repeat
  6.   set glist12graphlist to [0, 0, 0, 0, 0]
  7.   set the visible of sprite 8 to 1
  8.   set hidehilites to 1
  9.   set completionlist to []
  10.   case the frame of
  11.     label("start"):
  12.       set hidehilites to 0
  13.       hPlayAudioSound(1, "S12i0202", 1)
  14.     label("startNarr"):
  15.       set hidehilites to 0
  16.       hPlayNarrationFile(2, "n12i01")
  17.     label("Intro"), label("Drake"):
  18.       set hidehilites to 0
  19.     label("Example"):
  20.       set hidehilites to 0
  21.     label("Click1"), label("Click2"):
  22.       hPlayClickSound(1)
  23.       set hidehilites to 0
  24.       repeat with counter = 29 to 32
  25.         set the visible of sprite counter to 0
  26.       end repeat
  27.     label("Slider1"):
  28.       hShowUncollectedNuggets(1)
  29.       hCheckCompletion()
  30.       hShowChicklet(1)
  31.     (label("Slider1") + 6):
  32.       hShowUncollectedNuggets(0)
  33.       if getProp(glist12donelist1, "button3") = 1 then
  34.         setProp(glist12donelist3, #button2, 1)
  35.       end if
  36.       hShowChicklet(1)
  37.     (label("Slider1") + 9):
  38.       hShowUncollectedNuggets(0)
  39.       setProp(glist12donelist3, #button1, 1)
  40.       hShowChicklet(1)
  41.     label("Slider2"):
  42.       hShowUncollectedNuggets(0)
  43.       hCheckCompletion()
  44.       hShowChicklet(2)
  45.       if soundBusy(2) = 0 then
  46.         if getProp(glist12donelist7, "button3") = 0 then
  47.           setProp(glist12donelist7, #button3, 1)
  48.           hPlayAudioSound(1, "n12i02", 2)
  49.         end if
  50.       end if
  51.     (label("Slider2") + 2):
  52.       hShowUncollectedNuggets(0)
  53.       hCheckCompletion()
  54.       hShowChicklet(2)
  55.     (label("Slider2") + 5):
  56.       if (the text of member "wordlist" contains "Californios") and (the text of member "wordlist" contains "tariffs") and (the text of member "wordlist" contains "ranchos") then
  57.         setProp(glist12donelist4, #button2, 1)
  58.       end if
  59.       hShowUncollectedNuggets(2)
  60.       hShowChicklet(2)
  61.     (label("Slider2") + 7):
  62.       setProp(glist12donelist4, #button1, 1)
  63.       hShowUncollectedNuggets(0)
  64.       hShowChicklet(2)
  65.     label("Slider3"):
  66.       hShowUncollectedNuggets(0)
  67.       hCheckCompletion()
  68.       hShowChicklet(3)
  69.       if getProp(glist12donelist7, "button4") = 0 then
  70.         setProp(glist12donelist7, #button4, 1)
  71.         hPlayAudioSound(1, "n12i03", 2)
  72.       end if
  73.       if getProp(glist12donelist7, "button1") = 0 then
  74.         setProp(glist12donelist7, #button1, 1)
  75.         puppetSprite(39, 1)
  76.         hPlayClickSound(4)
  77.         repeat with counter = 1 to 3
  78.           startTimer()
  79.           set the memberNum of sprite 39 to member "IconCover 00100"
  80.           updateStage()
  81.           repeat while the timer < 20
  82.           end repeat
  83.           set the memberNum of sprite 39 to member "IconCover 00000"
  84.           updateStage()
  85.           repeat while the timer < 44
  86.           end repeat
  87.         end repeat
  88.         puppetSprite(39, 0)
  89.       end if
  90.     (label("Slider3") + 2):
  91.       hPlayAudioSound(1, "u12i0103", 2)
  92.       hShowUncollectedNuggets(0)
  93.       set hidehilites to 0
  94.     (label("Slider3") + 6):
  95.       hShowUncollectedNuggets(0)
  96.       setProp(glist12donelist5, #button1, 1)
  97.       hShowChicklet(3)
  98.     (label("Slider3") + 8):
  99.       hShowUncollectedNuggets(3)
  100.       if (the text of member "wordlist" contains "ships") and (getProp(glist12donelist1, "button6") = 1) then
  101.         setProp(glist12donelist5, #button2, 1)
  102.       end if
  103.       hShowChicklet(3)
  104.     label("Slider4"):
  105.       if soundBusy(2) = 0 then
  106.         hPlayAudioSound(1, "u12i0804", 2)
  107.       end if
  108.       hShowUncollectedNuggets(4)
  109.       hCheckCompletion()
  110.       hShowChicklet(4)
  111.     (label("Slider4") + 3):
  112.       hShowUncollectedNuggets(5)
  113.       if (getProp(glist12donelist1, "button10") = 1) and (the text of member "wordlist" contains "population") and (the text of member "wordlist" contains "immigrants") then
  114.         setProp(glist12donelist6, #button1, 1)
  115.       end if
  116.       hShowChicklet(4)
  117.       if getProp(glist12donelist7, "button2") = 0 then
  118.         setProp(glist12donelist7, #button2, 1)
  119.         puppetSprite(39, 1)
  120.         hPlayClickSound(4)
  121.         repeat with counter = 1 to 3
  122.           startTimer()
  123.           set the memberNum of sprite 39 to member "IconCover 00100"
  124.           updateStage()
  125.           repeat while the timer < 20
  126.           end repeat
  127.           set the memberNum of sprite 39 to member "IconCover 00000"
  128.           updateStage()
  129.           repeat while the timer < 44
  130.           end repeat
  131.         end repeat
  132.         puppetSprite(39, 0)
  133.       end if
  134.     (label("Slider4") + 5):
  135.       hShowUncollectedNuggets(0)
  136.       if soundBusy(2) = 0 then
  137.         hPlayAudioSound(1, "u12i0704", 2)
  138.       end if
  139.       if getProp(glist12donelist1, "button8") = 1 then
  140.         setProp(glist12donelist6, #button2, 1)
  141.       end if
  142.       hShowChicklet(4)
  143.     (label("Slider4") + 8):
  144.       hShowUncollectedNuggets(0)
  145.       if soundBusy(2) = 0 then
  146.         hPlayAudioSound(1, "u12i0705", 2)
  147.       end if
  148.       setProp(glist12donelist6, #button3, 1)
  149.       hShowChicklet(4)
  150.     (label("Slider4") + 10):
  151.       hShowUncollectedNuggets(6)
  152.       if soundBusy(2) = 0 then
  153.         hPlayAudioSound(1, "u12i0706", 2)
  154.       end if
  155.       if (getProp(glist12donelist1, "button9") = 1) and (the text of member "wordlist" contains "migrants ") then
  156.         setProp(glist12donelist6, #button4, 1)
  157.       end if
  158.       hShowChicklet(4)
  159.     (label("Slider4") + 13):
  160.       hShowNuggetBagList(0)
  161.       hShowUncollectedNuggets(0)
  162.       repeat with counter = 24 to 28
  163.         puppetSprite(counter, 1)
  164.         set the visible of sprite counter to 1
  165.         set the visible of sprite (counter + 5) to 0
  166.         set the cursor of sprite (counter + 5) to [member "finger", member "finger mask"]
  167.       end repeat
  168.     otherwise:
  169.       hShowUncollectedNuggets(0)
  170.   end case
  171.   set the visible of sprite 10 to not hidehilites
  172.   updateStage()
  173. end
  174.